ORG100H
LDSP,3D00H
LDBC,11CH
LDD,0
EXOS16
LDC,0FAH
EXOS25
LDA,0FAH
OUT(0B2H),A
LDC,0FCH
EXOS25
LDA,0FEH
EXOS25
LDA,0F9H
EXOS25
LDA,0FCH
OUT(0B1H),A
LDA,192
LDDE,4000H
EXX
LDDE,4000H
LDHL,4004H
LDBC,13
L1EXAF,AF'
EXX
LDHL,LIN1
LDBC,16
LDIR
EXX
LD(HL),E
INCHL
LDA,D
RRA
RRA
RRA
AND3
OR58H
LD(HL),A
INCHL
LD(HL),E
INCHL
LD(HL),D
ADDHL,BC
INCD
LDA,D
AND7
JRNZ,L2
LDA,E
ADDA,32
LDE,A
CCF
SBCA,A
AND0F8H
ADDA,D
LDD,A
L2EXAF,AF'
DECA
JRNZ,L1
EXX
LDHL,SYNC
LDBC,HOSSZ
LDIR
XORA
OUT(82H),A
LDA,192
OUT(83H),A
LDC,0FDH
EXOS25
LDC,0FBH
EXOS25
LDA,0FBH
OUT(0B3H),A
LDA,0FDH
OUT(0B1H),A
LDA,1
LDDE,NEV1
EXOS1
LDDE,4000H
LDBC,1B00H
LDA,1
EXOS6
LDA,1
EXOS3
LDA,1
LDDE,NEV2
EXOS1
LDDE,5b00H
LDBC,-5b00H
LDA,1
EXOS6
LDA,1
EXOS3
LDA,0F9H
OUT(0B1H),A
LDA,0FEH
OUT(0B2H),A
LDA,1
LDDE,NEV3
EXOS1
LDDE,4000H
LDBC,8000H
LDA,1
EXOS6
LDA,1
EXOS3
LDA,0FDH
OUT(0B1H),A
LDA,0FAH
OUT(0B2H),A
LDA,48
OUT(0B4H),A
callexoski
ld(028eh),a
ldhl,keyscan
ld(028fh),hl
LDHL,BEEPER
LD(03B5H),A
LD(03B6H),HL
ldhl,tolt
ld(3000h),a
ld(3001h),hl
ldhl,ment
ld(3003h),a
ld(3004h),hl
ldiy5c3ah
ldde,0
ldix,-1
NNN1JP0BE24h
intld(ament+1),a
LDA,30H
OUT(0B4H),A
amentlda,0
intvegjpreturn
returnei
ret
NEV1DEFBNEV2-$-1
DEFM"SCR"
NEV2DEFBNEV3-$-1
DEFM"PRG"
NEV3DEFBLIN1-$-1
DEFM"RAM46"
LIN1DEFB255,14H,15,2FH,0,0,0,0
DEFB0,32,72,104,144,176,216,248
SYNCDEFB0FEH,02H,0,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB0E5H,52H,3FH,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB226,92H,63,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB253,16,63,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB252,16,6,63,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB255,16,63,32,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB252,12H,6,63,0,0,0,0
DEFB0,0,0,0,0,0,0,0
DEFB207,13H,63,0,0,0,0,0
DEFB0,0,0,0,0,0,0,0
HOSSZEQU$-SYNC
NOP
DS400H
keyscanpushbc
pushhl
LDDE,-1
ldbc,9b5h
ldhl,btab
nycout(c),b
ina,(c)
inca
jrz,nincs
deca
PUSHBC
LDB,8
rotarra
JRNC,VAN
rot1inchl
DJNZrota
POPBC
JRUJSOR
VANldD,E
LDE,(HL)
JRROT1
nincslda,8
adda,l
ldl,a
lda,h
adca,0
ldh,a
UJSORdecb
jpp,nyc
LDA,E
cp-1
jrz,joadat
cp28h
jrnc,modosit
lda,d
cp-1
jrz,joadat
cp28h
jrc,joadat
modositldd,27h
sub28h
ldhl,modsor
adda,l
ldl,a
lda,0
adca,h
ldh,a
lde,(hl)
joadatlda,d
cp27h
jrz,kscveg
inca
jrz,kscveg
cp19h
jrz,kscveg
lda,e
lde,d
ldd,a
cp18h
kscvegpophl
popbc
ret
btabdb12H,-1,1AH,-1,22H,-1,-1,-1
db10H,-1,-1,-1,-1,27h,20H,-1
db2dh,2ah,2ch,2bh,-1,29h,21h,-1
db9,-1,11H,-1,19H,-1,-1,-1
db13H,-1,1BH,-1,23H,-1,28h,-1
db-1,-1,-1,-1,-1,-1,-1,-1
dB0BH,24H,3,0CH,4,14H,1CH,-1
db0AH,25H,2,0DH,5,15H,1DH,-1
db1,-1,6,16H,0EH,1EH,26H,-1
db8,-1,0,0FH,7,17H,1FH,18H
modsordb23h,4,3,0bh,13h,20h
nop
;BEEPER.TXT
beeperdi
lda,l
srll
srll
cpl
and3
ldc,a
ldb,0
ldix,bazis
addix,bc
xora
bazisnop
dw0
incb
incc
beep1decc
jrnz,beep1
ldc,3fh
decb
jpnz,beep1
xor18h
out(0a7h),a
ldb,h
ldc,a
bit4,a
jrnz,beep2
lda,d
ore
jrz,beend
lda,c
ldc,l
decde
jp(ix)
beep2ldc,l
incc
jp(ix)
beendei
ret
mentldbc,0802
jrbeall
toltldbc,0601h
bealllda,c
ld(exnyit+1),a
lda,b
ld(blokk+1),a
blokkcallexosbe
pushix
pushde
ldde,data
lda,1
exnyitexos1
lda,1
popbc
pophl
exblokkexos6
lda,1
exzarexos3
callexoski
ret
exoskiei
ldb,80h
varhalt
djnzvar
di
lda,(38h)
ldhl,(39h)
ld(exbe1+1),a
ld(exbe2+1),hl
lda,18h
out(0a8h),a
out(0ach),a
lda,30h
out(0b4h),a
ldhl,int
lda,0c3h
ld(38h),a
ld(39h),hl
ldhl,bordt
ld(3010h),hl
ldhl,ifoly
ld(3012h),a
ld(3013h),hl
ei
ret
exosbedi
exbe1lda,0
exbe2ldhl,0
ld(38h),a
ld(39h),hl
ldb,80h
ei
var2halt
djnzvar2
ret
datadbvege-$-1
defm"DATA"
bordtdb0,20h,48h,68h,90h,0b0h,0d8h,0f8h
ifolyldhl,5800h
ldde,5801h
ldbc,02ffh
ld(hl),a
ldir
ret
vegenop